Valid as of 12/9/2012


//FNzzzzSQ JOB (FNzzzz),'REQUESTS OUT',            
//     REGION=4096K,MSGCLASS=A,TIME=(,10)  
/*JOBPARM CARDS=999999,LINES=9999
/*PASSWORD ???????
//************************************************************
//*                                                          *
//*                   F A S T E R                            *
//*          EDIT AND POST OUTGOING REQUESTS                 *
//*                                                          *
//************************************************************
//*
//*  DELETE FILES TO BE CREATED IN NEXT STEP
//*
//DELSTEP EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
//SYSIN     DD *                
DELETE 'FN.zzzz.REQUESTS.ONTO.EDITRPT'
DELETE 'FN.zzzz.REQUESTS.ONTO.SYSERRS'
//************************************************************
//*                 PARAM CARD VALUES                        *
//*                                                          *
//*   POST A BATCH      POS  1 - 1  =  ERROR FILE PROCESSING *
//*    OF REQUESTS                     'P' - ERROR PRINT     *
//*     TO THE DATABASE                      REPORT ONLY     *
//*                                    'B' - GENERATE BOTH   *
//*                                          ERR REC FILE IN *
//*                                          ADDITION TO THE *
//*                                          PRINT REPORT    *
//************************************************************
//SRTS01   EXEC PGM=IKJEFT01 
//$ORTPARM DD *
    INCORE=OFF
/*
//PARAM    DD *
P
//EDITRPT  DD DSN=FN.zzzz.REQUESTS.ONTO.EDITRPT,
//            DISP=(NEW,CATLG),UNIT=SYSDA,STORCLAS=SCFNSTD,
//            DCB=(RECFM=FB,LRECL=133,BLKSIZE=0,DSORG=PS),
//            SPACE=(TRK,(10,10),RLSE)
//RQSFILE  DD DSN=FN.zzzz.REQUESTS.ONTO.SYSTEM,DISP=SHR
//RQSERRS  DD SYSOUT=A                         /*ERROR RECORDS
//SORTWK01 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE)
//SYSOUT   DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSUDUMP DD DUMMY
//SYSABOUT DD DUMMY
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN  DD  *
 DSN SYSTEM(DSN)
 RUN  PROGRAM(SRTS01) PLAN(FNSRTS01) -
      LIB('FRN.DISTRICT.LINKLIB')
 END
//